home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / embedded / m68k / tutor.arc / COMMANDS.SA < prev    next >
Text File  |  1990-01-05  |  3KB  |  95 lines
  1. COMMANDS IDNT      1,3       TUTOR    Command list                   06/20/82
  2.          TTL       C O M M A N D   L I S T
  3.          XDEF      SOLIST
  4.          XDEF      MSG001
  5.  
  6.          XREF      FIRST
  7.  
  8. EOT      EQU       4
  9. LF       EQU       $A
  10. CR       EQU       $D
  11.  
  12.          SECTION   11
  13.  
  14. MSG001   DC.B      CR,LF,'TUTOR  1.3 ',EOT           "PROMPT"
  15.  
  16.          OPT       NOCL
  17.  
  18. ************************************************************************
  19. *  V E R S A b u g   C O M M A N D   G E N E R A T I O N   M A C R O S *
  20. ************************************************************************
  21.  
  22.  
  23.  
  24. CMD      MACRO
  25.  SPC 1
  26.          XREF      \1CMD               *************************************
  27. FLAG     SET       0                   *
  28.          IFC       '\2','HELP=NO'
  29. FLAG     SET       FLAG+$8000          * "Help" will not display this command
  30.          ENDC
  31.          IFC       '\3','HELP=NO'
  32. FLAG     SET       FLAG+$8000          * "Help" will not display this command
  33.          ENDC
  34.          IFC       '\2','NORTN=YES'
  35. FLAG     SET       FLAG+$80            * "NO\1".Command
  36.          ENDC
  37.          IFC       '\3','NORTN=YES'
  38. FLAG     SET       FLAG+$80            * "NO\1".Command
  39.          ENDC
  40.          IFC       '\1','PER'          Check for the "PER" command
  41.          DC.W      '.*'+FLAG           * Reg commands (.A2 .D6 .PC .R0 etc.)
  42.          DC.W      \1CMD-FIRST        *************************************
  43.          ENDC
  44.          IFNC      '\1','PER'          If not PERCMD...
  45.          IFEQ      '\1'&($00FF)        If 1 digit code, 2nd will be a blank.
  46.          DC.W      '\1 '+FLAG          * "\1"....Command  -  -  (Single Digit)
  47.          ENDC
  48.          IFNE      '\1'&($00FF)        If 2 digit code, leave as is.
  49.          DC.W      '\1'+FLAG           * "\1"...Command
  50.          ENDC
  51.          DC.W      \1CMD-FIRST        *************************************
  52.          ENDC
  53.  SPC 2
  54.          ENDM
  55.          PAGE
  56. *******************************************************
  57. * C O P Y R I G H T . 1 9 8 1 . B Y . M O T O R O L A *
  58. *******************************************************
  59. SOLIST   DS        0                   Start Of LIST
  60.  SPC 2
  61.  CMD PER,HELP=NO
  62.  CMD NO,HELP=NO
  63.  CMD BF
  64.  CMD BM
  65.      PAGE
  66.  CMD BR,NORTN=YES
  67.  CMD BS
  68.  CMD BT
  69.  CMD DC
  70.  CMD DF
  71.  CMD DU
  72.      PAGE
  73.  CMD G
  74.  CMD GD
  75.  CMD GO
  76.  CMD GT
  77.  CMD HE
  78.  CMD LO
  79.  CMD M
  80.      PAGE
  81.  CMD MD
  82.  CMD MM
  83.  CMD MS
  84.  CMD OF
  85.  CMD PA,NORTN=YES              *
  86.  CMD PF
  87.      PAGE
  88.  CMD T
  89.  CMD TM
  90.  CMD TR
  91.  CMD TT
  92.  CMD VE
  93.  SPC 1
  94.          DC.W      $FFFF     End of list indicator
  95.  END